PostgreSQL for Hollywood

/****************************************************************

**                                                             **

** Name:        3_DBUpdate_DropTable                           **

** Author:      Michael Suther                                 **

** Date:        07.04.19                                       **

** Interpreter: Hollywood 8.0                                  **

** Function:    Löscht eine Tabelle in einer PgSQL-DB          **

**                                                             **

** ACHTUNG! DAS LÖSCHEN EINER TABELLE KANN NICHT RÜCKGÄNGIG    **

**          GEMACHT WERDEN!                                    **

**                                                             **

****************************************************************/

@INCLUDE "PostgreSQL_Lib.hws"

Block        

       ;Netzwerkverbindung zum PostgreSQL-Server herstellen.

       Local ConnectionID = OpenConnection(Nil,"localhost",5432)

       ;Einige Variablen definieren

       Local Fail

       Local Errorcode

       Local Database$ = "postgres"

       Local Username$ = "test"

       Local Passwort$ = "test"

       ;Anmeldung

       Fail, ErrorCode = PG:OpenDatabase(Database$, Username$, Passwort$, ConnectionID)

       ; Auswerten der Rückgabewerte

       If Fail = False 

               NPrint("Verbindung wurde erfolgreich hergestellt.")

       Else

               NPrint("Die Verbindung ist fehlgeschlagen,")

               NPrint("Fehlercode:  ", ErrorCode)

       EndIf

       ;Der SQL query

       Local SQL$ = "DROP TABLE Kunde;"

       ;Eine neue Tabelle erzeugen

       Fail, Errorcode = PG:DatabaseUpdate(SQL$, ConnectionID)

       ; Auswerten der Rückgabewerte

       If Fail = False 

               NPrint("Tabelle wurde gelöscht")

       Else

               NPrint("DROP Table ist fehlgeschlagen.")

               NPrint("Fehlercode:  ", ErrorCode)

       EndIf

       WaitLeftMouse

       ;Verbindung zur Datenbank schließen.

       PG:CloseDatabase(ConnectionID)        

EndBlock